home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / util2 / fda.bas < prev    next >
Encoding:
BASIC Source File  |  1986-09-28  |  3.5 KB  |  72 lines
  1. 100 'FDA.BAS -- creates FDA.COM -- by E. J. Muth
  2. 110 DIM T(38):FOR A=1 TO 38:READ S:T(A)=S:G=G+S:NEXT
  3. 120 IF G=69210! THEN 140
  4. 130 PRINT "Error in lines 380-410":END
  5. 140 FOR A=1 TO 38:FOR B=1 TO 16
  6. 150 READ C$:C=VAL("&H"+C$)
  7. 160 TOTAL=TOTAL+C:NEXT
  8. 170 IF TOTAL=T(A) THEN 190
  9. 180 PRINT "Error in line";A*10+410:END
  10. 190 TOTAL=0:NEXT
  11. 200 RESTORE 420:CLS:KEY OFF:LOCATE 8,1,1:INSERT%=0
  12. 210 ADD%=4:DRIVE$="A":GOSUB 320
  13. 220 ADD%=2:DRIVE$="B":GOSUB 320
  14. 230 ADD%=1:DRIVE$="C":GOSUB 320
  15. 240 IF INSERT%=0 THEN INSERT%=1
  16. 250 LOCATE 16,30,1:PRINT "Writing Byte No."
  17. 260 OPEN "FDA.COM" AS #1 LEN=1:FIELD #1,1 AS BYTE$
  18. 270 FOR I=1 TO 618
  19. 280 LOCATE 16,50,0:PRINT USING "####";I
  20. 290 READ HEXTWO$:IF I=609 THEN HEXTWO$=MID$(STR$(INSERT%),2)
  21. 300 LSET BYTE$=CHR$(VAL("&H" + HEXTWO$)):PUT #1
  22. 310 NEXT:CLOSE #1:LOCATE 18,20: PRINT"Done":PRINT:END
  23. 320 PRINT TAB(20)"Include drive "DRIVE$" in search Y/N ?  ";
  24. 330 A$=INKEY$:IF A$="" THEN 330
  25. 340 IF A$="Y" OR A$="y" THEN INSERT%=INSERT%+ADD%:GOTO 370
  26. 350 IF A$="N" OR A$="n" THEN GOTO 370
  27. 360 BEEP:GOTO 330
  28. 370 PRINT A$:PRINT:RETURN
  29. 380 DATA 1711,1790,2094,1211,1123,1235,1254,1382,1556,2028
  30. 390 DATA 1589,1661,2042,2654,2099,1633,1993,1938,1430,1954
  31. 400 DATA 1826,1736,1970,1533,2312,1760,2439,2081,1989,2097
  32. 410 DATA 2258,1514,2478,1479,1695,1604,2101,1961
  33. 420 DATA B2,0A,E8,E3,01,BE,82,00,BF,B9,03,AC,3C,0D,74,03
  34. 430 DATA AA,EB,F8,30,C0,AA,A0,60,03,24,01,74,14,BF,65,03
  35. 440 DATA 30,C0,FC,B9,40,00,F2,AE,8B,DF,4B,BA,00,00,E8,52
  36. 450 DATA 00,A0,60,03,24,04,74,21,BF,65,03,C7,05,41,00,C7
  37. 460 DATA 45,01,3A,00,C7,45,02,5C,00,C7,45,03,00,00,8B,DF
  38. 470 DATA 83,C3,03,BA,00,00,E8,2A,00,A0,60,03,24,02,74,21
  39. 480 DATA BF,65,03,C7,05,42,00,C7,45,01,3A,00,C7,45,02,5C
  40. 490 DATA 00,C7,45,03,00,00,8B,DF,83,C3,03,BA,00,00,E8,02
  41. 500 DATA 00,CD,20,56,52,E8,65,01,E8,82,01,72,0D,E8,5F,00
  42. 510 DATA E8,98,01,72,05,E8,57,00,EB,F6,5A,52,E8,57,01,E8
  43. 520 DATA 6B,01,72,24,8B,F2,F6,44,15,10,75,0B,E8,7C,01,72
  44. 530 DATA 17,F6,44,15,10,74,F5,80,7C,1E,2E,74,EF,E8,0B,00
  45. 540 DATA 50,B4,1A,CD,21,58,EB,E4,5A,5E,C3,57,56,50,53,FC
  46. 550 DATA 8B,F2,83,C6,1E,8B,FB,AC,AA,08,C0,75,FA,8B,DF,FD
  47. 560 DATA AA,B0,5C,AA,E8,9C,FF,5B,C6,07,00,58,5E,5F,C3,50
  48. 570 DATA 52,56,53,51,83,C2,1A,8B,F2,8B,04,8B,54,02,BF,0A
  49. 580 DATA 00,E8,86,00,B2,20,E8,DF,00,E8,DC,00,83,EE,02,8B
  50. 590 DATA 04,25,E0,01,B1,05,D3,F8,E8,90,00,B2,2D,E8,C8,00
  51. 600 DATA 8B,04,25,1F,00,E8,A5,00,B2,2D,E8,BB,00,8B,04,25
  52. 610 DATA 00,FE,B1,09,D3,E8,05,50,00,E8,91,00,B2,20,E8,A7
  53. 620 DATA 00,E8,A4,00,83,EE,02,8B,04,25,00,F8,B1,0B,D3,E8
  54. 630 DATA E8,58,00,B2,3A,E8,90,00,8B,04,25,E0,07,B1,05,D3
  55. 640 DATA F8,E8,69,00,B2,20,E8,7F,00,E8,7C,00,59,5B,5E,BA
  56. 650 DATA 65,03,8A,07,C6,07,00,E8,CF,00,88,07,5A,52,83,C2
  57. 660 DATA 1E,E8,C5,00,E8,B3,00,5A,58,C3,31,C9,F7,F7,83,C2
  58. 670 DATA 30,52,31,D2,41,09,C0,75,F3,BA,20,00,52,41,83,F9
  59. 680 DATA 07,75,F9,B4,02,5A,CD,21,E2,FB,C3,31,D2,F7,F7,83
  60. 690 DATA C2,30,52,31,D2,F7,F7,09,D2,74,03,83,C2,10,83,C2
  61. 700 DATA 20,52,B9,02,00,B4,02,5A,CD,21,E2,FB,C3,31,D2,F7
  62. 710 DATA F7,83,C2,30,52,31,D2,F7,F7,83,C2,30,52,B9,02,00
  63. 720 DATA B4,02,5A,CD,21,E2,FB,C3,B4,02,CD,21,C3,56,BE,B9
  64. 730 DATA 03,E8,0B,00,5E,C3,56,BE,61,03,E8,02,00,5E,C3,50
  65. 740 DATA 57,8B,FB,FC,AC,AA,08,C0,75,FA,5F,58,C3,51,83,FA
  66. 750 DATA 00,77,03,BA,9B,03,83,C2,2B,B9,10,00,B4,1A,CD,21
  67. 760 DATA 52,BA,65,03,B4,4E,CD,21,5A,59,C3,51,52,BA,65,03
  68. 770 DATA B9,10,00,B4,4F,CD,21,5A,59,C3,50,52,B4,02,B2,0A
  69. 780 DATA CD,21,B2,0D,CD,21,5A,58,C3,50,52,56,FC,8B,F2,B4
  70. 790 DATA 02,AC,8A,D0,CD,21,AC,08,C0,75,F7,5E,5A,58,C3,00
  71. 800 DATA 05,2A,2E,2A,00,43,3A,5C,00,00
  72.